home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / XQ My Computer Drives 3.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-01-21  |  2.5 KB  |  77 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="3"
  3. "COUNT"="4"
  4. "UIPATH 1"="Appearance\Desktop\Icons\'My Computer' Context Menu"
  5. "UIPATH 2"="Appearance\Files&Folders\'My Computer' Context Menu"
  6. "NAME"="My Computer Drives #3"
  7. "VERSION"="1.05"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="5) Name:"
  10. "TEXT 2"="5) Command:"
  11. "TEXT 3"="6) Name:"
  12. "TEXT 4"="6) Command:"
  13. "DESCRIPTION 1"="This plug-in can be used to add two Drives to the context menu that appears if you right-click on the My Computer desktop icon."
  14. "DESCRIPTION 2"="First, enter a name for the location (e.g. "Go To Drive A") in the field "Name". Then browse to the location of explorer.exe [usually C:\Windows] and add [after a space] "A:\" [no quotes] in the "Command" space."
  15. "DESCRIPTION 3"="To remove the command again, clear both the "Name" and the "Command" field and press "Apply"."
  16. "DESCRIPTION 4"="An example:"
  17. "DESCRIPTION 5"="1) Name:        Go To Drive A"
  18. "DESCRIPTION 6"="1) Command:  C:\Windows\explorer.exe A:\"
  19. "AUTHOR"="Ojatex@aol.com"
  20. "CONTACTURL"="http://members.aol.com/ojatex/"
  21. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  22. "COMMENT 1"="For X-Setup program information, go to http://www.xteq.com"
  23. "COMMENT 2"="If you have more than 6 drives, email me for more plugins [text only pls - this is AOL not OE]."
  24.  
  25.  
  26. sPath1="HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\Shell\XQXSETCMD5\"
  27. sPath2="HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\Shell\XQXSETCMD6\"
  28. sCMD="Command\@"
  29. Sub Plugin_Initialize
  30.  s=RegReadValue(sPath1 & sCMD)
  31.  if len(s)>0 then
  32.   s=RegReadValue(sPath1 & "@")
  33.   SetUIElement 1,s
  34.  
  35.   s=RegReadValue(sPath1 & sCMD)
  36.   SetUIElement 2,s
  37.  end if
  38.  
  39.  s=RegReadValue(sPath2 & sCMD)
  40.  if len(s)>0 then
  41.   s=RegReadValue(sPath2 & "@")
  42.   SetUIElement 3,s
  43.  
  44.   s=RegReadValue(sPath2 & sCMD)
  45.   SetUIElement 4,s
  46.  end if
  47. End Sub
  48.  
  49. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  50.  s1=GetUIElement(1)
  51.  s2=GetUIElement(2)
  52.  if len(s1)>0 or len(s2)>0 then
  53.   Call RegWriteValue(sPath1 & sCMD,s2,1)
  54.   Call RegWriteValue(sPath1 & "@",s1,1)
  55.  else
  56.   if IsEmpty(RegReadValue(sPath1 & sCMD))=false then
  57.    Call RegDeletePath(sPath1 & "Command")
  58.    Call RegDeletePath(sPath1)
  59.   end if
  60.  end if
  61.  
  62.  s1=GetUIElement(3)
  63.  s2=GetUIElement(4)
  64.  if len(s1)>0 or len(s2)>0 then
  65.   Call RegWriteValue(sPath2 & sCMD,s2,1)
  66.   Call RegWriteValue(sPath2 & "@",s1,1)
  67.  else
  68.   if IsEmpty(RegReadValue(sPath2 & sCMD))=false then
  69.    Call RegDeletePath(sPath2 & "Command")
  70.    Call RegDeletePath(sPath2)
  71.   end if
  72.  end if
  73. End Sub
  74.  
  75. Sub Plugin_Terminate 
  76. End Sub
  77.